(cond-expand
 (modules (import (only (chibi test) test-begin test-assert test test-end)))
 (else #f))

(import (scheme base))
(import (clock system))

(test-begin "(clock system)")

(test-assert (symbol? type))
(test-assert (memv type '(tai-like posix-like ntp-like)))

(test-assert (procedure? call-with-current-clock-values))
(test-assert (= 2 (length (call-with-current-clock-values list))))
(test-assert (real? (car (call-with-current-clock-values list))))
(test-assert (inexact? (car (call-with-current-clock-values list))))
(test-assert (boolean? (cadr (call-with-current-clock-values list))))

(test-end "(clock system)")
